Option Explicit
Sub A_Sample049()
    Dim mySht1 As Object
    Dim mySht2 As Worksheet
    Dim myWd   As Window
    Set myWd = ActiveWorkbook.Windows(1)
    'ǳƨ즹
    For Each mySht1 In myWd.SelectedSheets
        If mySht1.Type = xlWorksheet Then
            Set mySht2 = mySht1
            MsgBox mySht2.Name
        End If
    Next
    Set mySht1 = Nothing	'
    Set mySht2 = Nothing
End Sub
